On s’intéresse à l’impact de l’exploitation de la tourbe sur les communautés fauniques.
On considère les communautés d’invertébrés rampants d’une zone exploitée en comparaison à une zone témoin.
| \(Taxon_1\) | \(Taxon_2\) | \(…\) | \(Taxon_i\) | |
|---|---|---|---|---|
| \(Grille_1\) / \(Date_1\) | \(N_{1, 1}\) | \(N_{1, 2}\) | \(…\) | \(N_{1, i}\) |
| \(Grille_2\) / \(Date_2\) | \(N_{2, 1}\) | \(N_{2, 2}\) | \(…\) | \(N_{2, i}\) |
| \(…\) | \(…\) | \(…\) | \(…\) | \(…\) |
| \(Grille_n\) / \(Date_n\) | \(N_{n, 1}\) | \(N_{n, 2}\) | \(…\) | \(N_{n, i}\) |
| \(Grille\) | \(Date\) | \(Taxon\) | \(Pluie\) | \(Température\) |
|---|---|---|---|---|
| \(...\) | \(...\) | \(...\) | \(...\) | \(...\) |
| \(...\) | \(...\) | \(...\) | \(...\) | \(...\) |
| \(...\) | \(...\) | \(...\) | \(...\) | \(...\) |
fosses = read.csv("data/fosses.csv") %>%
pivot_longer(
cols = 6:18,
names_to = "Taxa",
values_to = "Count"
) %>%
mutate(Date = ymd(paste(Year,Month,Day))) %>%
left_join(DailyMeteo) %>%
left_join(vegetation)